global gPathDelim,gDriveLetterPath,gMAC,gPROJECTOR
on startMovie
SetPlatformGlobals
openXlibs
GetPCDriveLetter
envTest
--⌐1995 Edge Interactive Publishing, Inc.
set CopyrightTXT = "⌐1995 Edge Interactive Publishing, Inc."
end
on SetPlatformGlobals
set gPROJECTOR = TRUE
if the machinetype <> 256 then
set gMAC = TRUE
set gPathDelim = ":"
else
set gMAC = FALSE
set gPathDelim = "\"
end if
end
on openXlibs
if gMAC then
openXLib the pathName & "EXTERNAL" & gPathDelim & "Johnny.XObj"
openXlib the pathName & "EXTERNAL" & gPathDelim & "MacType"
openXlib the pathName & "EXTERNAL" & gPathDelim & "GetMode"
else
openXLib the pathName & "fileio.dll"
end if
end
on envTest
if the colorQD = False then
alert "KROLL FETISH requires a color QuickDraw Mac."
updateStage
Quit
end if
--the colorQD always returns TRUE on a Windows machine
if the quickTimePresent = False then
alert "KROLL FETISH requires that the QuickTime extension be installed ¼
in your system. We recommend that you use version 2.1 or higher. Version 2.1 is included on the KROLL FETISH CD-ROM. Refer to the Read Me document for installation instructions." --?1.6 or 2.0
updateStage
Quit
end if
--verify QT version -- Mac only
if gMAC then
openXLib the pathName & "EXTERNAL" & gPathDelim & "QTVersion XFCN" -- no license fee
set QTvers = QTVersion()
closeXLib the pathName & "EXTERNAL" & gPathDelim & "QTVersion XFCN"
if QTvers < "1.6" then
alert "KROLL FETISH requires QuickTime version 1.6 or higher. Version 2.1 is included on the KROLL FETISH CD-ROM. Refer to the Read Me document for installation instructions."
updateStage
QUIT
else if QTvers < "2.1" then
alert "You have a version of QuickTime which predates version 2.1. We recommend that you use version 2.1 or higher. Version 2.1 is included on the KROLL FETISH CD-ROM. Refer to the Read Me document for installation instructions."
updateStage
end if
end if
-----BEGIN MAGIC COLOR SETTINGS------
---BEGIN BY JOGGING THE COLOR DEPTH FROM ITS CURRENT SETTING---
set STARTCOLORDEPTH = the colorDepth
if STARTCOLORDEPTH = 4 then
set the colorDepth = 8
else if STARTCOLORDEPTH = 8 then
set the colorDepth = 16
else if STARTCOLORDEPTH = 16 then
set the colorDepth = 8
else if STARTCOLORDEPTH = 32 then
set the colorDepth = 8
end if
---COLOR SHOULD NOW BE JOGGED & READY TO BE SET----
if the colorDepth <> 32 then
if gMAC then
------COLOR SETTING----------------
set the colorDepth = 32
-----------------------------------
UPDATESTAGE
if the colorDepth <> 32 then
------COLOR SETTING----------------
set the colorDepth = 16
-----------------------------------
UPDATESTAGE
if the colorDepth <> 16 then
------COLOR SETTING----------------
set the colorDepth = 8
-----------------------------------
UPDATESTAGE
if the colorDepth < 8 then QUIT
end if
end if
end if
end if
if the memorySize < (4 * 1024 *1024) then
alert "KROLL FETISH requires 4 megabytes of RAM to function properly.¼
Try closing all open applications and relaunching the game."
updateStage
end if
if gMAC then
put char 1 of item 2 of MacType() into testSystem
if value(testSystem) < 7 then
alert "You must use system 7.0 or higher to run KROLL FETISH."
updateStage
end if
set testSize = getMode()
if value (item 6 of line 1 of testSize) < 640 OR value (item 7 of line 1 of testSize) < 480 then
if line 2 of testSize <> empty AND value (item 6 of line 1 of testSize) >= 640 ¼
AND value (item 7 of line 1 of testSize) >= 480 then
alert "KROLL FETISH can not run on your primary monitor, ¼
however your second monitor is large enough. Open your monitor control panel, ¼
make your second monitor the primary monitor and restart your machine."
updateStage
else
alert "KROLL FETISH can not run on your primary monitor. ¼
Your monitor must be at least 640 x 480 pixels (13 inches)."
updateStage
end if
end if
end if
end
--on GetPCDriveLetter
-- global gPathDelim,gDriveLetterPath
-- set gDriveLetterPath = "D:\KROLL24.DXR"
-- set FileObj = fileio(mNew, "read",gDriveLetterPath)
-- if objectP(FileObj) then
-- return
-- end if
-- set gDriveLetterPath = "E:\KROLL24.DXR"
-- set FileObj = fileio(mNew, "read",gDriveLetterPath)
-- if objectP(FileObj) then
-- return
-- end if
-- set gDriveLetterPath = "F:\KROLL24.DXR"
-- set FileObj = fileio(mNew, "read",gDriveLetterPath)
-- if objectP(FileObj) then
-- return
-- end if
-- set gDriveLetterPath = "G:\KROLL24.DXR"
-- set FileObj = fileio(mNew, "read",gDriveLetterPath)
-- if objectP(FileObj) then
-- return
-- end if
-- set gDriveLetterPath = "E:\KROLL24.DXR"
-- return
--end
on GetPCDriveLetter
--Set searchFolder to a directory which exists at the root level of the CD-ROM.
--(in this case EXTERNAL) followed by a backslash (\)
--Make a text file (contents irrelevant) guaranteed to come first alphabetically
--and locate it in that directory on the CD-ROM.
--Set searchFileName to the name of that file.
--This function returns the PC drive letter as a string in the form "D:\"
if the machineType <> 256 then exit
set searchFolder = "EXTERNAL\"
set searchFileName = "DIALOGS.DLL"
repeat with i = 68 to 90 -- (D through Z)
if getNthFileNameInFolder(numToChar(i)&":\"&searchFolder, 1) = searchFileName then
